home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1995 / 1 / 02 / tips.ampk / Tips & Tricks / PowerPacker < prev    next >
Encoding:
Text File  |  1995-06-01  |  1.1 KB  |  42 lines
  1. /* PowerPacker Loader für DirOpus */
  2.  
  3. /* Wartet auf das Öffnen des PowerPacker-ARexxPorts */
  4. /* und simuliert das Drücken der linken Maustaste */
  5. IF ~SHOW("Ports","POWERPACKER") THEN DO 
  6.    ADDRESS COMMAND "SYS:UTILITIES/POWERPACKER"
  7.    ADDRESS COMMAND "REXX:WaitForPort POWERPACKER"
  8.    ADDRESS COMMAND "Run Sys:c/FakeKey 0 lbutton"
  9. END
  10.  
  11. OPTIONS RESULTS
  12. ADDRESS "DOPUS.1"
  13.  
  14. /* Name des Verzeichnisses im momentan aktiven Fenster */
  15. STATUS 13 "-1";       PATH=RESULT
  16. /* Name des ersten angewählten Eintrags im aktiven Fenster */
  17. GETNEXTSELECTED "-1"; NAME=RESULT
  18.  
  19. PARSE VAR PATH; PARSE VAR NAME
  20.  
  21. ADDRESS "POWERPACKER"
  22. PP2FRONT                  /* PowerPacker-Window nach vorne */
  23.  
  24. IF NAME=0 THEN LOAD
  25.    /* Falls Powerpacker gestartet wurde, aber in DirOpus kein
  26.     * Eintrag angewählt ist, Filerequester öffnen */
  27. ELSE DO
  28.    LOAD PATH||NAME
  29.    SAVE
  30. END
  31.  
  32. /* der erste in DirOpus angewählte Eintrag wird geladen, gepackt
  33.  * und nach Abschluß des Packvorgangs erscheint der Filerequester
  34.  * um zu sichern */
  35.  
  36. ICONIFY /* Powerpacker wird iconifiziert */
  37.  
  38. ADDRESS "DOPUS.1"
  39. DOPUSTOFRONT /* DirOpus wird wieder in den Vordergrund geholt */
  40.  
  41. EXIT
  42.